home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual dBase Pro v7.0 / DATA1.CAB / Sample_dBASE / Fleet / Repview.wfm < prev    next >
Encoding:
Text File  |  1997-11-20  |  1.9 KB  |  76 lines
  1. //--------------------------------------------------------------
  2. //
  3. //  RepView.wfm -- Report Viewer
  4. //
  5. //  This form is a generic report viewer that you can use
  6. //  to display a report and provide page navigation. The
  7. //  report viewer provides a preview for SDI applications 
  8. //  that cannot use the default MDI report window. It also
  9. //  allows MDI applications to provide custom toolbars and
  10. //  menus when a report is being viewed.
  11. //  
  12. //  To use this viewer, in your application set filename
  13. //  property of the repView control. For example:
  14. /*
  15.      set procedure to "repview.wfm" additive 
  16.      f = new RepViewForm()
  17.      f.repView.filename := "aircraft.rep"
  18.      f.open()
  19. */
  20. //  Dependencies: REPORTBAR.PRG
  21. //              
  22. //
  23. //  Visual dBASE Samples Group
  24. //
  25. //  $Revision:   1.3  $
  26. //
  27. //  Copyright (c) 1997, Borland International, Inc. 
  28. //  All rights reserved.
  29. //
  30. //---------------------------------------------------------------
  31. ** END HEADER -- do not remove this line
  32. //
  33. // Generated on 09/25/97
  34. //
  35. parameter bModal
  36. local f
  37. f = new repViewForm()
  38. if (bModal)
  39.    f.mdi = false // ensure not MDI
  40.    f.readModal()
  41. else
  42.    f.open()
  43. endif
  44.  
  45. class repViewForm of FORM
  46.    with (this)
  47.       onOpen = class::FORM_ONOPEN
  48.       scaleFontBold = false
  49.       height = 21
  50.       left = 14.2857
  51.       top = 0.2727
  52.       width = 67
  53.       text = "Report Viewer"
  54.       icon = "resource #240"
  55.    endwith
  56.  
  57.  
  58.    this.REPVIEW = new REPORTVIEWER(this)
  59.    with (this.REPVIEW)
  60.       height = 21
  61.       width = 67
  62.       metric = 0
  63.       anchor = 6
  64.    endwith
  65.  
  66.  
  67.    // {Linked Method} form.onOpen
  68.    function form_onOpen
  69.       set procedure to "reportbar.prg" additive
  70.       set procedure to "repview.pop"   additive
  71.       do "reportBar.prg" with this, this.repView 
  72.       do repView.pop with this, "shortcut"
  73.       this.popupMenu := this.shortcut
  74.    return
  75. endclass
  76.